home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / cdev / sludge.sit / Source Code / Parasite.a < prev    next >
Text File  |  1999-10-07  |  19KB  |  359 lines
  1. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
  2. ;Ñ                                                                           Ñ
  3. ;Ñ   File Name:   Parasite.a                                                 Ñ
  4. ;Ñ   ----------                                                              Ñ
  5. ;Ñ                                                                           Ñ
  6. ;Ñ   Copyright ⌐ 1989 Apple Computer, Inc.  All Rights Reserved              Ñ
  7. ;Ñ                                                                           Ñ
  8. ;Ñ       Description                                                         Ñ
  9. ;Ñ       -----------                                                         Ñ
  10. ;Ñ       This file contains the assembly language routines of the SLUDGE     Ñ
  11. ;Ñ         parasite.                                                             Ñ
  12. ;Ñ                                                                           Ñ
  13. ;Ñ       History                                                             Ñ
  14. ;Ñ       -------                                                             Ñ
  15. ;Ñ                                                                           Ñ
  16. ;Ñ       Author          Date            Description                         Ñ
  17. ;Ñ       ------------------------------------------------------------------  Ñ
  18. ;Ñ       Kevin McEntee   2/20/90         Original Implementation             Ñ
  19. ;Ñ                                                                           Ñ
  20. ;Ñ                                                                           Ñ
  21. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ*/
  22.  
  23.  
  24.                         INCLUDE                'traps.a'
  25.                         INCLUDE                'ToolEqu.a'
  26.                         EXPORT                ATRAP_EX:CODE
  27.                         EXPORT                TAKE_A_TRAP_EXCEPTION_VECTOR:CODE
  28.                         EXPORT                TAKE_JUMP_TRACE_VECTOR:CODE
  29.                         IMPORT                HLL_ATRAP_EX:CODE
  30.                         EXPORT                MASTER_A_TRAP:CODE
  31.                         EXPORT                GET_MASTER_A_TRAP_HANDLE:CODE
  32.                         EXPORT                GET_SAVED_A_TRAP_VECTOR:CODE
  33.                         EXPORT                SET_JUMP_TRACE_BIT:CODE
  34.                         EXPORT                CLEAR_JUMP_TRACE_BIT:CODE
  35.                         SEG                    'NUGG'
  36.  
  37.  
  38. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
  39. ;Ñ                                                                           Ñ
  40. ;Ñ   Identifier:    MASTER_SLUDGE                                             Ñ
  41. ;Ñ   -----------                                                             Ñ
  42. ;Ñ                                                                           Ñ
  43. ;Ñ       Description                                                         Ñ
  44. ;Ñ       -----------                                                         Ñ
  45. ;Ñ       This function is never executed.  It is a place for a DC.L that     Ñ
  46. ;Ñ         contains the current SLUDGE factor.  There are access routines for  Ñ
  47. ;Ñ         this DC.L later in this file.                                         Ñ
  48. ;Ñ                                                                           Ñ
  49. ;Ñ       History                                                             Ñ
  50. ;Ñ       -------                                                             Ñ
  51. ;Ñ                                                                           Ñ
  52. ;Ñ       Author          Date            Description                         Ñ
  53. ;Ñ       ------------------------------------------------------------------  Ñ
  54. ;Ñ       Kevin McEntee   2/20/90         Original Implementation             Ñ
  55. ;Ñ                                                                           Ñ
  56. ;Ñ                                                                           Ñ
  57. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ*/
  58. MASTER_SLUDGE            PROC
  59.                         Jmp                    skipper
  60.                         DC.L                0
  61. skipper                    Pea                    #'How dare you disturb the sludge MASTER! Use the g command NOW!'
  62.                         _DebugStr
  63.                         RTS
  64.                         ENDPROC
  65.                         
  66.                         
  67.  
  68.  
  69. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
  70. ;Ñ                                                                           Ñ
  71. ;Ñ   Identifier:    GET_SAVED_SLUDGE_FACTOR                                  Ñ
  72. ;Ñ   -----------                                                             Ñ
  73. ;Ñ                                                                           Ñ
  74. ;Ñ       Description                                                         Ñ
  75. ;Ñ       -----------                                                         Ñ
  76. ;Ñ       This function returns the current SLUDGE factor in register D0.     Ñ
  77. ;Ñ                                                                           Ñ
  78. ;Ñ       History                                                             Ñ
  79. ;Ñ       -------                                                             Ñ
  80. ;Ñ                                                                           Ñ
  81. ;Ñ       Author          Date            Description                         Ñ
  82. ;Ñ       ------------------------------------------------------------------  Ñ
  83. ;Ñ       Kevin McEntee   2/20/90         Original Implementation             Ñ
  84. ;Ñ                                                                           Ñ
  85. ;Ñ                                                                           Ñ
  86. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ*/
  87. GET_SAVED_SLUDGE_FACTOR        PROC
  88.                             Move.L                A0,-(A7)
  89.                             Lea                    MASTER_SLUDGE,A0
  90.                             AddQ.L                #4,A0
  91.                             Move.L                (A0),D0
  92.                             Move.L                (A7)+,A0
  93.                             RTS
  94.                             ENDPROC
  95.                             
  96.                             
  97. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
  98. ;Ñ                                                                           Ñ
  99. ;Ñ   Identifier:    ATRAP_EX                                                 Ñ
  100. ;Ñ   -----------                                                             Ñ
  101. ;Ñ                                                                           Ñ
  102. ;Ñ       Description                                                         Ñ
  103. ;Ñ       -----------                                                         Ñ
  104. ;Ñ       This proc is executed at each a-trap exception.  SLUDGE needs          Ñ
  105. ;Ñ         control here because the exception turns off the jump-trace bit     Ñ
  106. ;Ñ         and SLUDGE needs to turn it back on.  So SLUDGE turns it back on    Ñ
  107. ;Ñ         and jumps to the system a-trap dispatcher.                             Ñ
  108. ;Ñ                                                                           Ñ
  109. ;Ñ       History                                                             Ñ
  110. ;Ñ       -------                                                             Ñ
  111. ;Ñ                                                                           Ñ
  112. ;Ñ       Author          Date            Description                         Ñ
  113. ;Ñ       ------------------------------------------------------------------  Ñ
  114. ;Ñ       Kevin McEntee   2/20/90         Original Implementation             Ñ
  115. ;Ñ                                                                           Ñ
  116. ;Ñ                                                                           Ñ
  117. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ*/
  118. ATRAP_EX                PROC
  119.                         Pea                    #0
  120.                         MoveM.L                A0-A7/D0-D7,-(A7)
  121.                         Link                A6,#0
  122.                         Move.L                A6,-(SP)
  123.                         Pea                    72(A6)            ; pass the address of the stack frame
  124.                         Move.L                A0,-(A7)
  125.                         Jsr                    HLL_ATRAP_EX
  126.                         MoveA.L                8(SP),A6
  127.                         Move.L                D0,68(A6)        ;  the address of the system a-trap dispatcher will be on the top of the stack
  128.                         Unlk                A6
  129.                         MoveM.L                (A7)+,A0-A7/D0-D7
  130.                         Ori.W                #$4000,SR        ;  set jump trace bit
  131.                         RTS
  132.                         ENDPROC
  133.                         
  134.                         
  135. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
  136. ;Ñ                                                                           Ñ
  137. ;Ñ   Identifier:    JTRACE_EX                                                 Ñ
  138. ;Ñ   -----------                                                             Ñ
  139. ;Ñ                                                                           Ñ
  140. ;Ñ       Description                                                         Ñ
  141. ;Ñ       -----------                                                         Ñ
  142. ;Ñ       This proc is executed at each jump trace exception.  It simply      Ñ
  143. ;Ñ         executes a tight loop the number of times specified by the current  Ñ
  144. ;Ñ         SLUDGE factor.                                                         Ñ
  145. ;Ñ                                                                           Ñ
  146. ;Ñ       History                                                             Ñ
  147. ;Ñ       -------                                                             Ñ
  148. ;Ñ                                                                           Ñ
  149. ;Ñ       Author          Date            Description                         Ñ
  150. ;Ñ       ------------------------------------------------------------------  Ñ
  151. ;Ñ       Kevin McEntee   2/20/90         Original Implementation             Ñ
  152. ;Ñ                                                                           Ñ
  153. ;Ñ                                                                           Ñ
  154. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ*/
  155. JTRACE_EX                PROC
  156.                         Move.L                D0,-(A7)
  157.                         JSR                    GET_SAVED_SLUDGE_FACTOR
  158. back                    DBF                    D0,back                            ; loop here
  159.                         Move.L                (A7)+,D0
  160.                         OrI.W                #$4000,(A7)        ; set jump trace bit in stacked status register
  161.                         RTE
  162.                         ENDPROC
  163. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
  164. ;Ñ                                                                                            Ñ
  165. ;Ñ            Function Name                                                                    Ñ
  166. ;Ñ            -------------                                                                    Ñ
  167. ;Ñ            TAKE_A_TRAP_EXCEPTION_VECTOR                                                    Ñ
  168. ;Ñ                                                                                            Ñ
  169. ;Ñ            Purpose                                                                            Ñ
  170. ;Ñ            -------                                                                            Ñ
  171. ;Ñ            This PROC will replace the a-trap exception vector with address of the             Ñ
  172. ;Ñ            ATRAP_EX PROC                                                                    Ñ
  173. ;Ñ                                                                                            Ñ
  174. ;Ñ                                                                                            Ñ
  175. ;Ñ            Modification History                                                            Ñ
  176. ;Ñ            --------------------                                                            Ñ
  177. ;Ñ                                                                                            Ñ
  178. ;Ñ            Name                    Date        Change                                        Ñ
  179. ;Ñ            ----                    ----        ------                                        Ñ
  180. ;Ñ            Kevin McEntee            9/21/88        Original implementation                        Ñ
  181. ;Ñ                                                                                            Ñ
  182. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
  183. TAKE_A_TRAP_EXCEPTION_VECTOR            PROC
  184.                                         Move.L            A0,-(A7)
  185.                                         Move.L            A1,-(A7)
  186.                                         MoveA.L            #$28,A0            ; A0 -> A-trap exception vector
  187.                                         Lea                ATRAP_EX,A1        ; A1 -> my exception handler
  188.                                         Move.L            A1,(A0)            ; replace existing exception vector
  189.                                         MoveA.L            (A7)+,A1
  190.                                         MoveA.L            (A7)+,A0
  191.                                         RTS
  192.                                         ENDPROC
  193.                                         
  194. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
  195. ;Ñ                                                                           Ñ
  196. ;Ñ   Identifier:    TAKE_JUMP_TRACE_VECTOR                                     Ñ
  197. ;Ñ   -----------                                                             Ñ
  198. ;Ñ                                                                           Ñ
  199. ;Ñ       Description                                                         Ñ
  200. ;Ñ       -----------                                                         Ñ
  201. ;Ñ       This proc accepts a SLUDGE factor as a parameter and saves it as      Ñ
  202. ;Ñ         current SLUDGE factor and sets the jump-trace exception vector to   Ñ
  203. ;Ñ         to JTRACE_EX.                                                         Ñ
  204. ;Ñ                                                                           Ñ
  205. ;Ñ       History                                                             Ñ
  206. ;Ñ       -------                                                             Ñ
  207. ;Ñ                                                                           Ñ
  208. ;Ñ       Author          Date            Description                         Ñ
  209. ;Ñ       ------------------------------------------------------------------  Ñ
  210. ;Ñ       Kevin McEntee   2/20/90         Original Implementation             Ñ
  211. ;Ñ                                                                           Ñ
  212. ;Ñ                                                                           Ñ
  213. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ*/
  214. TAKE_JUMP_TRACE_VECTOR                    PROC
  215.                                         ;
  216.                                         Move.L            A0,-(A7)
  217.                                         Move.L            A1,-(A7)
  218.                                         Move.L            D0,-(A7)
  219.                                         Lea                MASTER_SLUDGE,A0
  220.                                         AddQ.L            #4,A0
  221.                                         Move.L            16(SP),D0
  222.                                         Move.L            D0,(A0)            ; save current SLUDGE factor
  223.                                         ;
  224.                                         MoveA.L            #$24,A0            ; A0 -> trace exception vector
  225.                                         Lea                JTRACE_EX,A1        ; A1 -> my exception handler
  226.                                         Move.L            A1,(A0)            ; replace existing exception vector
  227.                                         ;
  228.                                         ;                                ; put RA on top of stack
  229.                                         MoveA.L            12(SP),A1
  230.                                         Move.L            A1,16(SP)
  231.                                         ;
  232.                                         Move.L            (A7)+,D0
  233.                                         MoveA.L            (A7)+,A1
  234.                                         MoveA.L            (A7)+,A0
  235.                                         AddA.L            #4,A7
  236.                                         RTS
  237.                                         ENDPROC
  238.                                         
  239.  
  240.  
  241. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
  242. ;Ñ                                                                           Ñ
  243. ;Ñ   Identifier:    MASTER_A_TRAP                                             Ñ
  244. ;Ñ   -----------                                                             Ñ
  245. ;Ñ                                                                           Ñ
  246. ;Ñ       Description                                                         Ñ
  247. ;Ñ       -----------                                                         Ñ
  248. ;Ñ       This function is never executed.  It is a place for a DC.L that     Ñ
  249. ;Ñ         contains the system value for the a-trap exception vector.  There   Ñ
  250. ;Ñ         are access routines for this DC.L later in this file.                 Ñ
  251. ;Ñ                                                                           Ñ
  252. ;Ñ       History                                                             Ñ
  253. ;Ñ       -------                                                             Ñ
  254. ;Ñ                                                                           Ñ
  255. ;Ñ       Author          Date            Description                         Ñ
  256. ;Ñ       ------------------------------------------------------------------  Ñ
  257. ;Ñ       Kevin McEntee   2/20/90         Original Implementation             Ñ
  258. ;Ñ                                                                           Ñ
  259. ;Ñ                                                                           Ñ
  260. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ*/
  261. MASTER_A_TRAP            PROC
  262.                         Jmp                    around
  263.                         DC.L                0
  264. around                    Pea                    #'How dare you disturb the a_trap MASTER! Use the g command NOW!'
  265.                         _DebugStr
  266.                         RTS
  267.                         ENDPROC
  268.                         
  269.                         
  270. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
  271. ;Ñ                                                                           Ñ
  272. ;Ñ   Identifier:    GET_MASTER_A_TRAP_HANDLE                                 Ñ
  273. ;Ñ   -----------                                                             Ñ
  274. ;Ñ                                                                           Ñ
  275. ;Ñ       Description                                                         Ñ
  276. ;Ñ       -----------                                                         Ñ
  277. ;Ñ       This returns the address of the DC.L of the MASTER_A_TRAP in        Ñ
  278. ;Ñ         register D0.                                                         Ñ
  279. ;Ñ                                                                           Ñ
  280. ;Ñ       History                                                             Ñ
  281. ;Ñ       -------                                                             Ñ
  282. ;Ñ                                                                           Ñ
  283. ;Ñ       Author          Date            Description                         Ñ
  284. ;Ñ       ------------------------------------------------------------------  Ñ
  285. ;Ñ       Kevin McEntee   2/20/90         Original Implementation             Ñ
  286. ;Ñ                                                                           Ñ
  287. ;Ñ                                                                           Ñ
  288. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ*/
  289. GET_MASTER_A_TRAP_HANDLE        PROC
  290.                                 Move.L                A0,-(A7)
  291.                                 Lea                    MASTER_A_TRAP,A0
  292.                                 Move.L                A0,D0
  293.                                 AddQ.L                #4,D0
  294.                                 Move.L                (A7)+,A0
  295.                                 RTS
  296.                                 ENDPROC
  297.  
  298.  
  299.  
  300. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
  301. ;Ñ                                                                           Ñ
  302. ;Ñ   Identifier:    GET_SAVED_A_TRAP_VECTOR                                     Ñ
  303. ;Ñ   -----------                                                             Ñ
  304. ;Ñ                                                                           Ñ
  305. ;Ñ       Description                                                         Ñ
  306. ;Ñ       -----------                                                         Ñ
  307. ;Ñ       This returns the saved a-trap execption vector in register DO.         Ñ
  308. ;Ñ                                                                           Ñ
  309. ;Ñ       History                                                             Ñ
  310. ;Ñ       -------                                                             Ñ
  311. ;Ñ                                                                           Ñ
  312. ;Ñ       Author          Date            Description                         Ñ
  313. ;Ñ       ------------------------------------------------------------------  Ñ
  314. ;Ñ       Kevin McEntee   2/20/90         Original Implementation             Ñ
  315. ;Ñ                                                                           Ñ
  316. ;Ñ                                                                           Ñ
  317. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ*/
  318. GET_SAVED_A_TRAP_VECTOR        PROC
  319.                                 Move.L                A0,-(A7)
  320.                                 Lea                    MASTER_A_TRAP,A0
  321.                                 AddQ.L                #4,A0
  322.                                 Move.L                (A0),D0
  323.                                 Move.L                (A7)+,A0
  324.                                 RTS
  325.                                 ENDPROC
  326.  
  327.  
  328.  
  329.  
  330. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ
  331. ;Ñ                                                                           Ñ
  332. ;Ñ   Identifier:    SET_JUMP_TRACE_BIT  and CLEAR_JUMP_TRACE_BIT             Ñ
  333. ;Ñ   -----------                                                             Ñ
  334. ;Ñ                                                                           Ñ
  335. ;Ñ       Description                                                         Ñ
  336. ;Ñ       -----------                                                         Ñ
  337. ;Ñ       These procs set and clear the jump-trace bit of the status register.Ñ
  338. ;Ñ                                                                           Ñ
  339. ;Ñ       History                                                             Ñ
  340. ;Ñ       -------                                                             Ñ
  341. ;Ñ                                                                           Ñ
  342. ;Ñ       Author          Date            Description                         Ñ
  343. ;Ñ       ------------------------------------------------------------------  Ñ
  344. ;Ñ       Kevin McEntee   2/20/90         Original Implementation             Ñ
  345. ;Ñ                                                                           Ñ
  346. ;Ñ                                                                           Ñ
  347. ;ÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑÑ*/
  348. SET_JUMP_TRACE_BIT            PROC
  349.                             Ori.w            #$4000,SR
  350.                             RTS
  351.                             ENDPROC
  352.                             
  353. CLEAR_JUMP_TRACE_BIT        PROC
  354.                                 Andi.w    #$BFFF,SR
  355.                                 RTS
  356.                                 ENDPROC
  357.                             
  358.                                 END
  359.